home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / divers / pacman.sha < prev    next >
Encoding:
Text File  |  1994-03-01  |  483 b   |  8 lines
  1. 1 A$="  Ordonnancement suivant Proust ":DEFCHR$(255)="ACE204E2AC":DEFCHR$(254)="7CFEEEAE6C":DEFCHR$(253)="7CFEFEBE7C":DEFCHR$(252)="7C82BAAA7C"
  2. 2 CLS:PRINT".......W-Tel ("CHR$(255)") presente.......";:FOR X=0 TO 30:LOCATEX,0:PRINT MID$(A$,X+1,1);CHR$(253+INT(FRAC(X/2)+.5));:FOR I=1 TO30:NEXTI,X:LOCATE31,0:PRINT RIGHT$(A$,1);
  3. 3 LOCATE12,1:PRINT CHR$(252);" W-Tel";:LOCATE 0,0:STOP
  4. 4 REM BASE DE DONNEES 24/24
  5. 5 REM SUR SERVEUR MINITEL RTC
  6. 6 REM AU (16) 62 93 74 05
  7. 10 RETURN
  8.